home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
clipper
/
oclip.zip
/
ODEMO2.PRG
< prev
next >
Wrap
Text File
|
1991-11-08
|
863b
|
39 lines
/*
╔══════════════════════════════════════════════════════════════════════╗
║ o:Clip ║
║ An Object Oriented Extension to Clipper 5.01 ║
║ (c) 1991 Peter M. Freese, CyberSoft ║
╚══════════════════════════════════════════════════════════════════════╝
Version 1.01 - November 8, 1991
*/
#include "oclip.ch"
LOCAL o2 := Sample2():New("World")
o2:Hello()
RETURN
CLASS Sample1
VAR Who
METHOD New = Sample1New, Hello = Sample1Hello
ENDCLASS
FUNCTION Sample1New(cWho)
::Who := cWho
RETURN Self
FUNCTION Sample1Hello
? "Hello",::Who
RETURN Self
CLASS Sample2 FROM Sample1
METHOD Hello = Sample2Hello
ENDCLASS
FUNCTION Sample2Hello
::parent:Hello()
? "Greetings and salutations!"
RETURN Self